0 GOTO10
1 , 0300 AD 00 1C LDA $1C00
2 , 0303 29 10    AND #$10
3 , 0305 4A       LSR
4 , 0306 8D 00 1C STA $1C00
5 , 0309 4C 00 03 JMP $0300
6 :
10 OPEN1,8,15
20 FORX=0TO11:READA
30 PRINT#1,"M-W"CHR$(X)CHR$(3)CHR$(1)CHR$(A):NEXT
40 PRINT#1,"M-E"CHR$(0)CHR$(3)
50 DATA173,0,28,41,16,74,141,0,28,76,0,3